home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DATETIME / UNIXTM / UTTEST.PAS < prev   
Pascal/Delphi Source File  |  1995-01-16  |  2KB  |  68 lines
  1. {------------------------------------------------------------------------------}
  2. {- Program    : UTTEST.PAS                                                    -}
  3. {- Programmer : Todd Fiske                                                    -}
  4. {-                                                                            -}
  5. {- Purpose    : Test the UNIXTIME.PAS unit                                    -}
  6. {-                                                                            -}
  7. {- Revision   : 02/17/1994 - first version                                    -}
  8. {- History      01/16/1995 - cleaned up for uploading                         -}
  9. {-                                                                            -}
  10. {- Language   : Turbo Pascal 7.0                                              -}
  11. {-                                                                            -}
  12. {------------------------------------------------------------------------------}
  13. program uttest;
  14.  
  15. uses
  16.    dos,
  17.    unixtime;
  18.  
  19. var
  20.    t : longint;
  21.    d : DateTime;
  22.    f : file;
  23.  
  24. begin
  25.    writeln;
  26.    writeln('UnixTime Test');
  27.  
  28.    if paramcount = 0 then begin
  29.       writeln;
  30.       writeln('uttest <timelongint>');
  31.       halt;
  32.    end;
  33.  
  34.    writeln;
  35.    writeln('Unpacking Unix time longint');
  36.  
  37.    t := str2int(paramstr(1));
  38.    UnpackUnixTime(t, d);
  39.  
  40.    writeln;
  41.    writeln('year      : ', d.year  : 4);
  42.    writeln('month     : ', d.month : 4);
  43.    writeln('day       : ', d.day   : 4);
  44.    writeln('hour      : ', d.hour  : 4);
  45.    writeln('minute    : ', d.min   : 4);
  46.    writeln('second    : ', d.sec   : 4);
  47.  
  48.    writeln;
  49.    writeln('formatted : ', FormatUnixTime(t));
  50.  
  51.    writeln;
  52.    PackUnixTime(d, t);
  53.    writeln('repacked  : ', t);
  54.  
  55.    (**
  56.    PackTime(d, t);
  57.    writeln;
  58.    writeln('packed    : ', t);
  59.  
  60.    assign(f, 'uttest.pas');
  61.    reset(f);
  62.    GetFTime(f, t);
  63.    close(f);
  64.  
  65.    writeln('today     : ', t);
  66.    **)
  67. end.
  68.